<html>
<head>
<title>E:\QProjects\Lisp\toygen\inter\default-types.lisp.html</title>
<meta name="Generator" content="Vim/7.0">
<meta http-equiv="content-type" content="text/html; charset=windows-1251">
</head>
<body bgcolor="#ffffff" text="#000000">
<pre>
<font color="#804040"> 1 </font><span class="Comment">;</span>
<font color="#804040"> 2 </font><span class="Comment">; maps default C types</span>
<font color="#804040"> 3 </font><span class="Comment">;</span>
<font color="#804040"> 4 </font>
<font color="#804040"> 5 </font><span class="Comment">;</span>
<font color="#804040"> 6 </font><span class="Comment">; defines general information about types,</span>
<font color="#804040"> 7 </font><span class="Comment">; this information is highly compiler- and architecture- dependent</span>
<font color="#804040"> 8 </font><span class="Comment">;</span>
<font color="#804040"> 9 </font><span class="Special">(</span><span class="lispSymbol">add-primitive-type-mappings</span><span class="lispList"> </span><span class="Special">'</span><span class="Special">(</span>
<font color="#804040">10 </font><span class="lispLeadWhite">                               </span><span class="Special">(</span><span class="lispAtomList">int</span>
<font color="#804040">11 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:lang-name </span><span class="Constant">&quot;int&quot;</span>
<font color="#804040">12 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:size 4</span><span class="Special">)</span>
<font color="#804040">13 </font><span class="lispLeadWhite">                               </span><span class="Special">(</span><span class="Statement">char</span>
<font color="#804040">14 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:lang-name </span><span class="Constant">&quot;char&quot;</span>
<font color="#804040">15 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:size 1</span><span class="Special">)</span>
<font color="#804040">16 </font><span class="lispLeadWhite">                               </span><span class="Special">(</span><span class="lispAtomList">short</span>
<font color="#804040">17 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:lang-name </span><span class="Constant">&quot;short&quot;</span>
<font color="#804040">18 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:size 2</span><span class="Special">)</span>
<font color="#804040">19 </font><span class="lispLeadWhite">                               </span><span class="Special">(</span><span class="lispAtomList">double</span>
<font color="#804040">20 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:lang-name </span><span class="Constant">&quot;double&quot;</span>
<font color="#804040">21 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:size 8</span><span class="Special">)</span>
<font color="#804040">22 </font><span class="lispLeadWhite">                               </span><span class="Special">(</span><span class="Statement">float</span>
<font color="#804040">23 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:lang-name </span><span class="Constant">&quot;float&quot;</span>
<font color="#804040">24 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:size 4</span><span class="Special">)</span>
<font color="#804040">25 </font><span class="lispLeadWhite">                               </span><span class="Special">(</span><span class="lispAtomList">void</span>
<font color="#804040">26 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:lang-name </span><span class="Constant">&quot;void&quot;</span><span class="lispAtomList"> </span><span class="Comment">; this type has no size</span>
<font color="#804040">27 </font><span class="lispLeadWhite">                                </span><span class="Special">)</span>
<font color="#804040">28 </font><span class="lispLeadWhite">                               </span><span class="Special">(</span><span class="lispAtomList">long</span>
<font color="#804040">29 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:lang-name </span><span class="Constant">&quot;long&quot;</span>
<font color="#804040">30 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:size 4</span><span class="Special">)</span>
<font color="#804040">31 </font><span class="lispLeadWhite">                               </span><span class="Special">(</span><span class="lispAtomList">long-long</span>
<font color="#804040">32 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:lang-name </span><span class="Constant">&quot;long long&quot;</span><span class="lispAtomList"> </span><span class="Comment">; __int64 on vc6</span>
<font color="#804040">33 </font><span class="lispLeadWhite">                                </span><span class="lispAtomList">:size 8</span><span class="Special">)</span>
<font color="#804040">34 </font><span class="lispLeadWhite">                               </span><span class="Special">)</span><span class="Special">)</span>
</pre>
</body>
</html>
